home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / COMPUSRV.MOD < prev    next >
Encoding:
Text File  |  1987-02-15  |  524 b   |  15 lines
  1. (*----------------------------------------------------------------------*)
  2. (*        Do_Compuserve_B_Transfer --- Perform CIS B protocol transfer  *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Do_CompuServe_B_Transfer : BOOLEAN;
  6.  
  7. BEGIN (* Do_Compuserve_B_Transfer *)
  8.  
  9.    IF MyLoadOverlay( 0 , PT4INIT, 'PT4INIT.CHN' ) THEN
  10.       Do_Compuserve_B_Transfer := Compuserve_B_Transfer
  11.    ELSE
  12.       Do_Compuserve_B_Transfer := FALSE;
  13.  
  14. END   (* Do_Compuserve_B_Transfer *);
  15.